home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / compak7 / dacpack7.exe / dgroup.asp < prev    next >
Encoding:
Text File  |  1998-10-12  |  2.5 KB  |  110 lines
  1. <%@ Language=VBScript %>
  2. <HTML>
  3. <HEAD>
  4. <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  5. <title>DameWare Components ASP Test</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <%
  11.  
  12. ' ************** DGroup *****************
  13. Set DGroup = Server.CreateObject("DameWare.DGroupCtl.1")
  14. TestMachine = "\\myserver"
  15. TestUser = "Administrator"
  16. TestGroup = "Domain Admins"
  17.  
  18. %>
  19.  
  20. <center>
  21. <br>
  22. <hr WIDTH="80%" COLOR="INDIGO">
  23. <font SIZE="6" FACE="Times New Roman" COLOR="INDIGO">DGroup ASP Test</font>
  24. <hr WIDTH="80%" COLOR="INDIGO">
  25. </center>
  26.  
  27. <TABLE Align=Center BORDER=0 WIDTH=600 BGColor=Gray Text=Indigo>
  28. <TR> 
  29. <TD><B>Local Machine Name</B></TD>
  30. <TD><Input Type=text Disabled Name="Machine" SIZE=50 Value="<%= DGroup.GetLocalMachineName %>"></TD>
  31. </TR>
  32. <TR> 
  33. <TD><B>ASP Running under User ID</B></TD>
  34. <TD><Input Type=text Disabled Name="USERID" SIZE=50 Value="<%= DGroup.GetCurrentUserID %>"></TD>
  35. </TR>
  36. <TD><B>Testing for Machine Name</B></TD>
  37. <TD><Input Type=text Disabled Name="TMachine" SIZE=50 Value="<%= TestMachine %>"></TD>
  38. </TR>
  39. <TR> 
  40. <TD><B>Testing for User ID</B></TD>
  41. <TD><Input Type=text Disabled Name="TUSERID" SIZE=50 Value="<%= TestUser %>"></TD>
  42. </TR>
  43. <TR> 
  44. <TD><B>Testing for Group</B></TD>
  45. <TD><Input Type=text Disabled Name="TGROUP" SIZE=50 Value="<%= TestGroup %>"></TD>
  46. </TR>
  47. </table>
  48.  
  49. <BR>
  50. <center>
  51. <hr WIDTH="80%" COLOR="INDIGO">
  52.  
  53. <%
  54.  
  55. DGroup.Domain = TestMachine
  56. DGroup.UserID = TestUser
  57. DGroup.Group = TestGroup
  58. Response.Write "<STRONG>ISMEMBER test says: </STRONG>"
  59. Response.Write "[" & CStr(DGroup.IsMember) & "]"
  60.  
  61. If DGroup.IsMember = False Then
  62.     Response.Write DGroup.UserID & " is NOT a member of group " & DGroup.Group & " on " & _
  63.     DGroup.Domain & "<BR><BR>"
  64. else
  65.     Response.Write DGroup.UserID & " is a member of group " & DGroup.Group & " on " & _
  66.     DGroup.Domain & "<BR><BR>"
  67. end if
  68.  
  69. %>
  70.  
  71. </center>
  72.  
  73. <TABLE Align=Center BORDER=0 WIDTH=400 BGColor=Gray Text=Indigo>
  74. <TR> 
  75. <TD><Input Type=text Disabled SIZE=40 Value="GROUP NAME"></TD>
  76. <TD><Input Type=text Disabled SIZE=40 Value="GROUP COMMENT"></TD>
  77. </TR>
  78.  
  79. <%
  80.  
  81. DGroup.Domain = TestMachine
  82. DGroup.Group = TestGroup
  83. DGroup.Userid = TestUser
  84. DGroup.SetFirstUserGroup
  85. i = 0
  86. While DGroup.UserGroupGetNext <> 0
  87.  
  88. %>
  89.  
  90. <TR> 
  91. <TD><Input Type=text Disabled SIZE=40 Value="<%= DGroup.Group %>"></TD>
  92. <TD><Input Type=text Disabled SIZE=40 Value="<%= DGroup.GroupComment %>"></TD>
  93. </TR>
  94.  
  95. <%
  96.  
  97.     i = i + 1
  98. Wend
  99.  
  100. %>
  101.  
  102. </table>
  103.  
  104. <%
  105.  
  106. Set DGroup = Nothing
  107.  
  108. %>
  109.  
  110. </body>
  111. </html>
  112.